SetPractice Subroutine

public subroutine SetPractice(id, pract)

Set management practices to single plant stand

Arguments

Type IntentOptional Attributes Name
integer(kind=long), intent(in) :: id
type(Practice), intent(inout) :: pract

Variables

Type Visibility Attributes Name Initial
integer(kind=long), public :: pos

Source Code

SUBROUTINE  SetPractice &
!
(id, pract)

IMPLICIT NONE

!arguments with intent (in):
INTEGER (KIND = long), INTENT(IN) :: id

!arguments with intent (inout):
TYPE (Practice), INTENT(INOUT) :: pract

!local declarations:
INTEGER (KIND = long) :: pos

!------------------------------------------end of declarations-----------------

pos = GetPos (id)

IF (pos == 0) THEN
  RETURN !no prcatice to apply
ELSE
   pract = practices (pos)
END IF



RETURN
END SUBROUTINE SetPractice